home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Original Shareware 1.1
/
The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso
/
32
/
gbust.zip
/
G-BUST.BAS
next >
Wrap
BASIC Source File
|
1986-04-26
|
768b
|
15 lines
10 KEY OFF:SCREEN 0:WIDTH 40:COLOR 15,1,1:CLS
20 LOCATE 6,15,0:PRINT"GH";:COLOR 12:PRINT"0";:COLOR 15:PRINT"STBUSTERS"
30 LOCATE 8,20:COLOR 7:PRINT"by"
40 LOCATE 10,15:COLOR 11:PRINT"Gregg Minkow"
50 LOCATE 15,1:COLOR 14
60 PRINT" This program loads the picture G-BUST.PIC onto the screen. You must have a color graphics adapter to view this picture.
70 PRINT:PRINT" To run this program place the disk with G-BUST.PIC in the default drive."
80 LOCATE 24,8:COLOR 10:PRINT"Press RETURN to continue";
90 IF INKEY$<>CHR$(13) THEN 90
100 SCREEN 1:COLOR 8,1:CLS
110 DEF SEG=&HB800
120 BLOAD"G-BUST.PIC",0
130 IF INKEY$="" THEN 130
140 SCREEN 0:WIDTH 80:COLOR 15,1,1:CLS